home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / 3-DCUBE.BAS next >
Encoding:
BASIC Source File  |  1984-09-05  |  12.3 KB  |  169 lines
  1. 10 SCREEN 1:COLOR 8,0:DIM Z(120,12,4):KEY OFF:PRINT "READING DATA":READ Z:FOR A=1 TO Z:FOR B=1 TO 12:FOR C=1 TO 4:READ Z(A,B,C):NEXT:NEXT:NEXT:CLOSE:CLS
  2. 20 FOR A=1 TO Z:FOR B=1 TO 12:LINE(Z(A,B,1),Z(A,B,2))-(Z(A,B,3),Z(A,B,4)):NEXT:FOR B=1 TO 12:LINE(Z(A,B,1),Z(A,B,2))-(Z(A,B,3),Z(A,B,4)),0:NEXT:NEXT:IF INKEY$=CHR$(27) THEN END ELSE 20
  3. 1000 DATA 60
  4. 1001 DATA 100,40,178,48,178,48,171,128,171,128,93,120,93,120,100,40,107
  5. 1002 DATA 118,114,34,114,34,196,43,196,43,189,126,189,126,107,118,100,40
  6. 1003 DATA 114,34,178,48,196,43,171,128,189,126,93,120,107,118,99,40,174
  7. 1004 DATA 57,174,57,162,134,162,134,86,118,86,118,99,40,110,109,124,27,124
  8. 1005 DATA 27,202,45,202,45,190,126,190,126,110,109,99,40,124,27,174,57,202
  9. 1006 DATA 45,162,134,190,126,86,118,110,109,99,40,169,65,169,65,153,140
  10. 1007 DATA 153,140,81,115,81,115,99,40,115,100,133,22,133,22,206,49,206,49
  11. 1008 DATA 190,126,190,126,115,100,99,40,133,22,169,65,206,49,153,140,190
  12. 1009 DATA 126,81,115,115,100,99,39,163,74,163,74,144,144,144,144,78,110
  13. 1010 DATA 78,110,99,39,122,90,143,18,143,18,209,54,209,54,190,126,190,126
  14. 1011 DATA 122,90,99,39,143,18,163,74,209,54,144,144,190,126,78,110,122,90
  15. 1012 DATA 99,39,156,82,156,82,135,147,135,147,76,104,76,104,99,39,130,81
  16. 1013 DATA 152,15,152,15,210,61,210,61,190,127,190,127,130,81,99,39,152,15
  17. 1014 DATA 156,82,210,61,135,147,190,127,76,104,130,81,99,39,148,90,148,90
  18. 1015 DATA 127,148,127,148,76,96,76,96,99,39,139,73,160,14,160,14,209,68
  19. 1016 DATA 209,68,190,127,190,127,139,73,99,39,160,14,148,90,209,68,127,148
  20. 1017 DATA 190,127,76,96,139,73,99,38,139,97,139,97,120,148,120,148,78,88
  21. 1018 DATA 78,88,99,38,148,65,167,15,167,15,207,76,207,76,190,128,190,128
  22. 1019 DATA 148,65,99,38,167,15,139,97,207,76,120,148,190,128,78,88,148,65
  23. 1020 DATA 99,38,130,104,130,104,114,147,114,147,82,79,82,79,99,38,158,58
  24. 1021 DATA 173,18,173,18,203,85,203,85,190,128,190,128,158,58,99,38,173,18
  25. 1022 DATA 130,104,203,85,114,147,190,128,82,79,158,58,99,37,121,109,121
  26. 1023 DATA 109,109,143,109,143,87,69,87,69,99,37,168,53,177,21,177,21,197
  27. 1024 DATA 94,197,94,189,129,189,129,168,53,99,37,177,21,121,109,197,94,109
  28. 1025 DATA 143,189,129,87,69,168,53,100,37,112,112,112,112,106,139,106,139
  29. 1026 DATA 94,60,94,60,100,37,177,49,180,27,180,27,191,103,191,103,189,129
  30. 1027 DATA 189,129,177,49,100,37,180,27,112,112,191,103,106,139,189,129,94
  31. 1028 DATA 60,177,49,100,36,103,115,103,115,105,133,105,133,101,50,101,50
  32. 1029 DATA 100,36,186,47,181,33,181,33,183,112,183,112,189,130,189,130,186
  33. 1030 DATA 47,100,36,181,33,103,115,183,112,105,133,189,130,101,50,186,47
  34. 1031 DATA 101,36,95,116,95,116,105,125,105,125,110,42,110,42,101,36,194
  35. 1032 DATA 47,180,40,180,40,175,120,175,120,188,130,188,130,194,47,101,36
  36. 1033 DATA 180,40,95,116,175,120,105,125,188,130,110,42,194,47,101,36,89
  37. 1034 DATA 115,89,115,107,117,107,117,120,34,120,34,101,36,200,48,178,49
  38. 1035 DATA 178,49,166,127,166,127,188,130,188,130,200,48,101,36,178,49,89
  39. 1036 DATA 115,166,127,107,117,188,130,120,34,200,48,102,35,83,113,83,113
  40. 1037 DATA 111,108,111,108,130,27,130,27,102,35,205,50,174,57,174,57,156
  41. 1038 DATA 134,156,134,187,131,187,131,205,50,102,35,174,57,83,113,156,134
  42. 1039 DATA 111,108,187,131,130,27,205,50,102,35,79,109,79,109,116,99,116
  43. 1040 DATA 99,140,22,140,22,102,35,209,55,169,66,169,66,147,139,147,139,187
  44. 1041 DATA 131,187,131,209,55,102,35,169,66,79,109,147,139,116,99,187,131
  45. 1042 DATA 140,22,209,55,102,35,76,104,76,104,122,90,122,90,149,19,149,19
  46. 1043 DATA 102,35,211,60,163,75,163,75,138,143,138,143,186,131,186,131,211
  47. 1044 DATA 60,102,35,163,75,76,104,138,143,122,90,186,131,149,19,211,60,103
  48. 1045 DATA 35,75,97,75,97,130,81,130,81,158,17,158,17,103,35,212,67,155,83
  49. 1046 DATA 155,83,129,146,129,146,186,131,186,131,212,67,103,35,155,83,75
  50. 1047 DATA 97,129,146,130,81,186,131,158,17,212,67,103,35,75,90,75,90,139
  51. 1048 DATA 72,139,72,166,16,166,16,103,35,210,75,147,91,147,91,121,147,121
  52. 1049 DATA 147,185,131,185,131,210,75,103,35,147,91,75,90,121,147,139,72
  53. 1050 DATA 185,131,166,16,210,75,104,35,78,81,78,81,149,65,149,65,173,18
  54. 1051 DATA 173,18,104,35,207,83,138,98,138,98,114,146,114,146,185,131,185
  55. 1052 DATA 131,207,83,104,35,138,98,78,81,114,146,149,65,185,131,173,18,207
  56. 1053 DATA 83,104,35,82,72,82,72,158,58,158,58,178,21,178,21,104,35,203,91
  57. 1054 DATA 129,104,129,104,108,144,108,144,185,131,185,131,203,91,104,35
  58. 1055 DATA 129,104,82,72,108,144,158,58,185,131,178,21,203,91,104,35,87,63
  59. 1056 DATA 87,63,168,53,168,53,182,25,182,25,104,35,197,100,120,109,120,109
  60. 1057 DATA 104,140,104,140,184,131,184,131,197,100,104,35,120,109,87,63,104
  61. 1058 DATA 140,168,53,184,131,182,25,197,100,104,35,94,54,94,54,178,49,178
  62. 1059 DATA 49,184,31,184,31,104,35,191,109,111,113,111,113,101,134,101,134
  63. 1060 DATA 184,131,184,131,191,109,104,35,111,113,94,54,101,134,178,49,184
  64. 1061 DATA 131,184,31,191,109,104,36,102,45,102,45,186,47,186,47,185,38,185
  65. 1062 DATA 38,104,36,183,117,103,115,103,115,100,128,100,128,184,130,184
  66. 1063 DATA 130,183,117,104,36,103,115,102,45,100,128,186,47,184,130,185,38
  67. 1064 DATA 183,117,104,36,111,37,111,37,194,47,194,47,184,46,184,46,104,36
  68. 1065 DATA 174,125,95,116,95,116,101,120,101,120,184,130,184,130,174,125
  69. 1066 DATA 104,36,95,116,111,37,101,120,194,47,184,130,184,46,174,125,104
  70. 1067 DATA 37,120,29,120,29,201,48,201,48,181,54,181,54,104,37,165,132,88
  71. 1068 DATA 115,88,115,104,111,104,111,184,130,184,130,165,132,104,37,88,115
  72. 1069 DATA 120,29,104,111,201,48,184,130,181,54,165,132,104,37,130,23,130
  73. 1070 DATA 23,206,51,206,51,177,63,177,63,104,37,156,138,83,112,83,112,108
  74. 1071 DATA 102,108,102,185,129,185,129,156,138,104,37,83,112,130,23,108,102
  75. 1072 DATA 206,51,185,129,177,63,156,138,104,38,140,19,140,19,209,55,209
  76. 1073 DATA 55,171,72,171,72,104,38,147,143,78,109,78,109,114,93,114,93,185
  77. 1074 DATA 129,185,129,147,143,104,38,78,109,140,19,114,93,209,55,185,129
  78. 1075 DATA 171,72,147,143,103,38,149,16,149,16,211,61,211,61,164,81,164,81
  79. 1076 DATA 103,38,138,146,76,103,76,103,121,83,121,83,185,128,185,128,138
  80. 1077 DATA 146,103,38,76,103,149,16,121,83,211,61,185,128,164,81,138,146
  81. 1078 DATA 103,38,157,14,157,14,212,67,212,67,156,89,156,89,103,38,130,148
  82. 1079 DATA 75,97,75,97,129,74,129,74,186,128,186,128,130,148,103,38,75,97
  83. 1080 DATA 157,14,129,74,212,67,186,128,156,89,130,148,103,39,165,15,165
  84. 1081 DATA 15,210,75,210,75,147,97,147,97,103,39,122,149,75,89,75,89,139
  85. 1082 DATA 65,139,65,186,127,186,127,122,149,103,39,75,89,165,15,139,65,210
  86. 1083 DATA 75,186,127,147,97,122,149,102,39,171,17,171,17,207,83,207,83,138
  87. 1084 DATA 104,138,104,102,39,116,147,78,81,78,81,149,58,149,58,187,127,187
  88. 1085 DATA 127,116,147,102,39,78,81,171,17,149,58,207,83,187,127,138,104
  89. 1086 DATA 116,147,102,40,176,20,176,20,203,92,203,92,129,110,129,110,102
  90. 1087 DATA 40,111,145,82,72,82,72,159,52,159,52,187,126,187,126,111,145,102
  91. 1088 DATA 40,82,72,176,20,159,52,203,92,187,126,129,110,111,145,101,40,179
  92. 1089 DATA 25,179,25,197,101,197,101,120,115,120,115,101,40,107,140,87,62
  93. 1090 DATA 87,62,169,47,169,47,188,126,188,126,107,140,101,40,87,62,179,25
  94. 1091 DATA 169,47,197,101,188,126,120,115,107,140,101,40,180,31,180,31,190
  95. 1092 DATA 109,190,109,111,118,111,118,101,40,105,135,94,53,94,53,178,44
  96. 1093 DATA 178,44,188,126,188,126,105,135,101,40,94,53,180,31,178,44,190
  97. 1094 DATA 109,188,126,111,118,105,135,100,40,180,38,180,38,182,118,182,118
  98. 1095 DATA 102,120,102,120,100,40,105,128,102,44,102,44,187,42,187,42,189
  99. 1096 DATA 126,189,126,105,128,100,40,102,44,180,38,187,42,182,118,189,126
  100. 1097 DATA 102,120,105,128,100,40,179,46,179,46,174,126,174,126,95,120,95
  101. 1098 DATA 120,100,40,106,120,111,36,111,36,194,42,194,42,189,126,189,126
  102. 1099 DATA 106,120,100,40,111,36,179,46,194,42,174,126,189,126,95,120,106
  103. 1100 DATA 120,99,40,175,54,175,54,165,132,165,132,88,119,88,119,99,40,109
  104. 1101 DATA 111,121,29,121,29,200,44,200,44,189,126,189,126,109,111,99,40
  105. 1102 DATA 121,29,175,54,200,44,165,132,189,126,88,119,109,111,99,40,171
  106. 1103 DATA 63,171,63,156,138,156,138,83,116,83,116,99,40,114,102,131,23,131
  107. 1104 DATA 23,205,48,205,48,190,126,190,126,114,102,99,40,131,23,171,63,205
  108. 1105 DATA 48,156,138,190,126,83,116,114,102,99,39,165,72,165,72,146,143
  109. 1106 DATA 146,143,79,111,79,111,99,39,120,93,140,19,140,19,208,52,208,52
  110. 1107 DATA 190,126,190,126,120,93,99,39,140,19,165,72,208,52,146,143,190
  111. 1108 DATA 126,79,111,120,93,99,39,158,80,158,80,138,146,138,146,77,105,77
  112. 1109 DATA 105,99,39,128,84,149,16,149,16,210,59,210,59,190,127,190,127,128
  113. 1110 DATA 84,99,39,149,16,158,80,210,59,138,146,190,127,77,105,128,84,99
  114. 1111 DATA 39,150,88,150,88,129,148,129,148,76,98,76,98,99,39,136,75,158
  115. 1112 DATA 14,158,14,209,66,209,66,190,127,190,127,136,75,99,39,158,14,150
  116. 1113 DATA 88,209,66,129,148,190,127,76,98,136,75,99,38,141,96,141,96,122
  117. 1114 DATA 149,122,149,78,90,78,90,99,38,145,67,165,15,165,15,208,74,208
  118. 1115 DATA 74,190,127,190,127,145,67,99,38,165,15,141,96,208,74,122,149,190
  119. 1116 DATA 127,78,90,145,67,99,38,132,102,132,102,116,147,116,147,81,81,81
  120. 1117 DATA 81,99,38,155,60,171,17,171,17,204,83,204,83,190,128,190,128,155
  121. 1118 DATA 60,99,38,171,17,132,102,204,83,116,147,190,128,81,81,155,60,99
  122. 1119 DATA 37,123,107,123,107,111,144,111,144,85,72,85,72,99,37,165,54,176
  123. 1120 DATA 20,176,20,199,92,199,92,189,128,189,128,165,54,99,37,176,20,123
  124. 1121 DATA 107,199,92,111,144,189,128,85,72,165,54,100,37,114,112,114,112
  125. 1122 DATA 107,140,107,140,92,62,92,62,100,37,174,50,179,25,179,25,193,101
  126. 1123 DATA 193,101,189,129,189,129,174,50,100,37,179,25,114,112,193,101,107
  127. 1124 DATA 140,189,129,92,62,174,50,100,36,105,114,105,114,105,134,105,134
  128. 1125 DATA 99,53,99,53,100,36,183,48,180,31,180,31,185,109,185,109,189,129
  129. 1126 DATA 189,129,183,48,100,36,180,31,105,114,185,109,105,134,189,129,99
  130. 1127 DATA 53,183,48,100,36,97,116,97,116,105,128,105,128,108,44,108,44,100
  131. 1128 DATA 36,192,47,180,38,180,38,177,118,177,118,188,130,188,130,192,47
  132. 1129 DATA 100,36,180,38,97,116,177,118,105,128,188,130,108,44,192,47,101
  133. 1130 DATA 36,90,115,90,115,106,120,106,120,117,36,117,36,101,36,199,47,178
  134. 1131 DATA 46,178,46,168,125,168,125,188,130,188,130,199,47,101,36,178,46
  135. 1132 DATA 90,115,168,125,106,120,188,130,117,36,199,47,101,35,84,113,84
  136. 1133 DATA 113,109,111,109,111,127,29,127,29,101,35,204,50,175,55,175,55
  137. 1134 DATA 159,132,159,132,187,131,187,131,204,50,101,35,175,55,84,113,159
  138. 1135 DATA 132,109,111,187,131,127,29,204,50,102,35,80,110,80,110,114,102
  139. 1136 DATA 114,102,137,24,137,24,102,35,208,53,170,63,170,63,149,138,149
  140. 1137 DATA 138,187,131,187,131,208,53,102,35,170,63,80,110,149,138,114,102
  141. 1138 DATA 187,131,137,24,208,53,102,35,76,105,76,105,121,92,121,92,147,19
  142. 1139 DATA 147,19,102,35,211,59,164,72,164,72,140,142,140,142,186,131,186
  143. 1140 DATA 131,211,59,102,35,164,72,76,105,140,142,121,92,186,131,147,19
  144. 1141 DATA 211,59,103,35,75,99,75,99,128,83,128,83,156,17,156,17,103,35,212
  145. 1142 DATA 65,157,81,157,81,131,145,131,145,186,131,186,131,212,65,103,35
  146. 1143 DATA 157,81,75,99,131,145,128,83,186,131,156,17,212,65,103,35,75,92
  147. 1144 DATA 75,92,137,75,137,75,164,16,164,16,103,35,211,72,149,89,149,89
  148. 1145 DATA 123,146,123,146,185,131,185,131,211,72,103,35,149,89,75,92,123
  149. 1146 DATA 146,137,75,185,131,164,16,211,72,104,35,77,83,77,83,146,67,146
  150. 1147 DATA 67,171,17,171,17,104,35,208,80,141,96,141,96,116,146,116,146,185
  151. 1148 DATA 131,185,131,208,80,104,35,141,96,77,83,116,146,146,67,185,131
  152. 1149 DATA 171,17,208,80,104,35,80,75,80,75,156,60,156,60,177,20,177,20,104
  153. 1150 DATA 35,204,89,132,102,132,102,110,144,110,144,185,131,185,131,204
  154. 1151 DATA 89,104,35,132,102,80,75,110,144,156,60,185,131,177,20,204,89,104
  155. 1152 DATA 35,85,65,85,65,166,54,166,54,181,24,181,24,104,35,199,98,123,108
  156. 1153 DATA 123,108,105,141,105,141,184,131,184,131,199,98,104,35,123,108
  157. 1154 DATA 85,65,105,141,166,54,184,131,181,24,199,98,104,35,92,56,92,56
  158. 1155 DATA 175,50,175,50,184,29,184,29,104,35,193,107,114,112,114,112,102
  159. 1156 DATA 136,102,136,184,131,184,131,193,107,104,35,114,112,92,56,102,136
  160. 1157 DATA 175,50,184,131,184,29,193,107,104,36,100,47,100,47,184,47,184
  161. 1158 DATA 47,185,36,185,36,104,36,185,115,105,114,105,114,100,130,100,130
  162. 1159 DATA 184,130,184,130,185,115,104,36,105,114,100,47,100,130,184,47,184
  163. 1160 DATA 130,185,36,185,115,104,36,108,39,108,39,192,47,192,47,184,43,184
  164. 1161 DATA 43,104,36,177,123,97,116,97,116,101,122,101,122,184,130,184,130
  165. 1162 DATA 177,123,104,36,97,116,108,39,101,122,192,47,184,130,184,43,177
  166. 1163 DATA 123,104,36,118,31,118,31,199,47,199,47,182,52,182,52,104,36,168
  167. 1164 DATA 130,90,115,90,115,103,114,103,114,184,130,184,130,168,130,104
  168. 1165 DATA 36,90,115,118,31,103,114,199,47,184,130,182,52,168,130
  169.